home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / kcl / kcl.lha / lsp / describe.data < prev    next >
Text File  |  1986-07-03  |  4KB  |  225 lines
  1.           
  2. #(
  3. #!
  4. (lisp::in-package 'user::lisp)
  5. #!
  6. (lisp::export '(lisp::describe lisp::inspect))
  7. #!
  8. (lisp::in-package 'lisp::system)
  9. (lisp::optimize (lisp::safety 2) (lisp::space 3))
  10. 0
  11. system::*inspect-level*
  12. system::*inspect-history*
  13. system::*inspect-mode*
  14. system::*old-print-level*
  15. system::*old-print-length*
  16. lisp::*query-io*
  17. #\Newline
  18. #\Return
  19. #\Space
  20. #\Tab
  21. #\n
  22. #\N
  23. #\s
  24. #\S
  25. #\p
  26. #\P
  27. lisp::*print-pretty*
  28. lisp::*print-level*
  29. lisp::*print-length*
  30. #\a
  31. #\A
  32. system::abort-inspect
  33. #\u
  34. #\U
  35. #\e
  36. #\E
  37. :level
  38. :length
  39. #\q
  40. #\Q
  41. system::quit-inspect
  42. "Inspect commands:~%~
  43.         n (or N or Newline):    inspects the field (recursively).~%~
  44.         s (or S):        skips the field.~%~
  45.         p (or P):        pretty-prints the field.~%~
  46.         a (or A):        aborts the inspection ~
  47.                     of the rest of the fields.~%~
  48.         u (or U) form:        updates the field ~
  49.                     with the value of the form.~%~
  50.         e (or E) form:        evaluates and prints the form.~%~
  51.         q (or Q):        quits the inspection.~%~
  52.         ?:            prints this.~%~%"
  53. lisp::multiple-value-bind
  54. (system::update-flag system::new-value)
  55. system::read-inspect-command
  56. lisp::when
  57. system::update-flag
  58. lisp::setf
  59. system::new-value
  60. ((lisp::princ "Not updated.") (lisp::terpri))
  61. (system::update-flag system::new-value)
  62. ((lisp::princ "Not updated.") (lisp::terpri))
  63. "~V@T"
  64. 4
  65. 8
  66. "~V@T"
  67. 3
  68. "~:@(~S~) - uninterned symbol"
  69. "KEYWORD"
  70. "~:@(~S~) - keyword"
  71. "~:@(~S~) - ~:[internal~;external~] symbol in ~A package"
  72. :external
  73. "value:"
  74. "value:~%   ~S"
  75. system::system
  76. system::compiler
  77. "property ~S:"
  78. "property ~:@(~S~):~%   ~~S"
  79. "~&-----------------------------------------------------------------------------~%"
  80. "~S - package"
  81. "nicknames:  ~S"
  82. "use list:  ~S"
  83. "used-by list:  ~S"
  84. "shadowing symbols:  ~S"
  85. "~S - standard character"
  86. "~S - string character"
  87. "~S - character"
  88. "code:  #x~X"
  89. "bits:  ~D"
  90. "font:  ~D"
  91. "~S - fixnum (32 bits)"
  92. "~S - bignum"
  93. "~S - ratio"
  94. "numerator:"
  95. "denominator:"
  96. "~S - complex"
  97. "real part:"
  98. "imaginary part:"
  99. "~S - short-float"
  100. "exponent:  ~D"
  101. "mantissa:  ~D"
  102. "~S - long-float"
  103. "exponent:  ~D"
  104. "mantissa:  ~D"
  105. "~S - function"
  106. "~S - constant"
  107. "~S - cons"
  108. "nthcdr ~D:"
  109. "nth ~D:"
  110. "~S - simple string"
  111. "~S - string"
  112. "dimension:  ~D"
  113. "fill pointer:  ~D"
  114. "aref ~D:"
  115. "~S - simple vector"
  116. "~S - vector"
  117. "dimension:  ~D"
  118. "fill pointer:  ~D"
  119. "aref ~D:"
  120. "~S - adjustable aray"
  121. "~S - array"
  122. "rank:  ~D"
  123. "dimensions:  ~D"
  124. "total size:  ~D"
  125. 5
  126. 1
  127. "~S - ~S"
  128. "The lisp function DESCRIBE."
  129. "The lisp function INSPECT."
  130. lisp::function
  131. ""
  132. "[Special form and Macro]"
  133. "[Special form]"
  134. ""
  135. "[Macro]"
  136. "~%Args: ~S"
  137. "~%Args: ~S"
  138. "~%Args: ~S"
  139. "~%Args: ~S"
  140. ""
  141. ""
  142. "[Function]"
  143. "[Macro or Function]"
  144. "KEYWORD"
  145. lisp::variable
  146. ""
  147. "[Constant]"
  148. ""
  149. "[Special variable]"
  150. ""
  151. "[Variable]"
  152. lisp::type
  153. "[Type]"
  154. system::deftype-form
  155. lisp::*package*
  156. "~%Defined as: ~S~%See the doc of DEFTYPE."
  157. "[Type]"
  158. lisp::structure
  159. "[Structure]"
  160. system::defstruct-form
  161. "~%Defined as: ~S~%See the doc of DEFSTRUCT."
  162. "[Structure]"
  163. "[Setf]"
  164. system::setf-update-fn
  165. "~%Defined as: ~S~%See the doc of DEFSETF."
  166. lisp::defsetf
  167. "[Setf]"
  168. system::setf-lambda
  169. "~%Defined as: ~S~%See the doc of DEFSETF."
  170. "[Setf]"
  171. system::setf-method
  172. "~@[~%Defined as: ~S~%See the doc of DEFINE-SETF-METHOD.~]"
  173. lisp::define-setf-method
  174. "[Setf]"
  175. "~&-----------------------------------------------------------------------------~%~53S~24@A~%~A"
  176. "LISP"
  177. "SYSTEM"
  178. "~&-----------------------------------------------------------------------------"
  179. "~&No documentation for ~:@(~S~)."
  180. system::lisp
  181. 1024
  182. 512
  183. "~&-----------------------------------------------------------------------------"
  184. "~&No documentation for ~S in ~:[any~;~A~] package."
  185. lisp::proclaim
  186. system::inspect-read-line
  187. system::inspect-recursively
  188. system::inspect-print
  189. system::inspect-indent
  190. system::inspect-indent-1
  191. system::inspect-symbol
  192. system::inspect-package
  193. system::inspect-character
  194. system::inspect-number
  195. system::inspect-cons
  196. system::inspect-string
  197. system::inspect-vector
  198. system::inspect-array
  199. system::inspect-object
  200. lisp::describe
  201. lisp::inspect
  202. system::print-doc
  203. system::apropos-doc
  204. lisp::read-preserving-whitespace
  205. lisp::package-shadowing-symbols
  206. lisp::fixnum
  207. lisp::bignum
  208. lisp::ratio
  209. lisp::complex
  210. lisp::short-float
  211. lisp::single-float
  212. lisp::long-float
  213. lisp::double-float
  214. lisp::lambda
  215. lisp::lambda-block
  216. lisp::lambda-closure
  217. lisp::lambda-block-closure
  218. lisp::quote
  219. lisp::array-has-fill-pointer-p
  220. lisp::array-dimensions
  221. lisp::array-total-size
  222. lisp::documentation
  223. system::substringp
  224. )
  225.